home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / AIRCORE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-27  |  4.1 KB  |  179 lines
  1. 10  'AIRCORE - 05 SEP 92 rev. 13 MAY 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  IF PROG$=""THEN GO$=EX$ ELSE GO$=PROG$
  4. 40  COMMON EX$,PROG$,U,LX
  5. 50  CLS:KEY OFF
  6. 60  COLOR 7,0,1
  7. 70  T$=" BARKER & WILLIAMSON AIR-CORE INDUCTORS "
  8. 80  U1$="#######"
  9. 90  U2$="######.##"
  10. 100  U3$="#######.#"
  11. 110  UL$=STRING$(80,205)
  12. 120  DIM A(36,5)
  13. 130  FOR Z=1 TO 36      'load data
  14. 140   A(Z,1)=3000+Z
  15. 150    FOR C=2 TO 5
  16. 160    READ A(Z,C)
  17. 170    NEXT C
  18. 180  NEXT Z
  19. 190  '
  20. 200  '.....start
  21. 210  COLOR 15,2:PRINT T$;TAB(56);" by George Murphy VE3ERP ";
  22. 220  COLOR 1,0:PRINT STRING$(80,223);
  23. 230  COLOR 7,0
  24. 240  IF U THEN 680
  25. 250  PRINT " Press number in < > to:
  26. 260  PRINT UL$;
  27. 270  PRINT "  < 1 >  VIEW B & W catalog of air-core inductors"
  28. 280  PRINT "  < 2 >  SELECT an inductor from the catalog"
  29. 290  PRINT UL$;
  30. 300  PRINT "  < 0 >  EXIT
  31. 310  Z$=INKEY$
  32. 320  IF Z$="0"THEN CLS:CHAIN GO$
  33. 330  IF Z$="1"THEN 370
  34. 340  IF Z$="2"THEN 640
  35. 350  GOTO 310
  36. 360  '
  37. 370  '.....catalog
  38. 380  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  39. 390  COLOR 7,0
  40. 400  LOCATE CSRLIN-1,41:PRINT "OPEN"
  41. 410  T1$="   Cat.     Dia.   Turns   Lgth.     "
  42. 420  T2$="   No.     (in.)   per in. (in.)  AWG"
  43. 430  PRINT T1$;TAB(41);"OPEN";T1$
  44. 440  PRINT T2$;TAB(41);"OPEN";T2$
  45. 450  PRINT UL$;:LOCATE CSRLIN-1,41:PRINT "TAB("
  46. 460  FOR Z=1 TO 18
  47. 470  PRINT USING U1$;A(Z,1);
  48. 480  PRINT USING U2$;A(Z,2);
  49. 490  FOR Y=3 TO 5:PRINT USING U1$;A(Z,Y);:NEXT Y
  50. 500  '
  51. 510  PRINT TAB(41);"OPEN";
  52. 520  '
  53. 530  IF A(Z+18,2)=0 THEN 570
  54. 540  PRINT USING U1$;A(Z+18,1);
  55. 550  PRINT USING U2$;A(Z+18,2);
  56. 560  FOR Y=3 TO 5:PRINT USING U1$;A(Z+18,Y);:NEXT Y
  57. 570  PRINT ""
  58. 580  NEXT Z
  59. 590  PRINT UL$;
  60. 600  LOCATE 24,41:PRINT "LOCATE";
  61. 610  GOSUB 1660
  62. 620  CLS:GOTO 200
  63. 630  '
  64. 640  '.....select inductor
  65. 650  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  66. 660  COLOR 0,7
  67. 670  INPUT " ENTER: Desired inductance (>H)";U
  68. 680  COLOR 7,0
  69. 690  IF MK THEN 780
  70. 700  PRINT
  71. 710  PRINT " Press <ENTER> if you don't want any particular wire size ";
  72. 720  PRINT "hi-lited, otherwise"
  73. 730  IF MK=0 THEN 750
  74. 740  PRINT "coils are wound with #";MK;"AWG wire."
  75. 750  COLOR 0,7:PRINT
  76. 760  INPUT " ENTER: Desired wire size (AWG)";MK
  77. 770  COLOR 7,0
  78. 780  CLS
  79. 790  U=INT(U*1000+0.5)/1000     'round-off to 3 decimal places
  80. 800  PRINT TAB(6);" All the following B&W Coils have an inductance of";
  81. 810  COLOR 15,4:PRINT U;">H."
  82. 820  COLOR 14,0
  83. 830  PRINT TAB(6);" Yellow Hi-Lited";
  84. 840  COLOR 7,0
  85. 850  PRINT " coils have a length-to-diameter ratio of 2:1 or less."
  86. 860  IF MK=0 THEN COLOR 7,0:PRINT:GOTO 900
  87. 870  COLOR 0,7
  88. 880  LOCATE CSRLIN,6:PRINT " Reverse Printed ";
  89. 890  COLOR 7,0:PRINT " coils are wound with AWG#";MK;"wire."
  90. 900  T1$="       Dia. Turns  No.of  Lgth.     "
  91. 910  T2$="Cat.# (in.)  /in.  turns  (in.)  AWG"
  92. 920  PRINT T1$;"   OPEN   ";T1$
  93. 930  PRINT T2$;"   OPEN   ";T2$
  94. 940  PRINT UL$;
  95. 950  LOCATE CSRLIN-1,40:PRINT "TAB("
  96. 960  FOR Z=1 TO 36
  97. 970   CAT=A(Z,1)                       'cat.no.
  98. 980   R=A(Z,2)/2                       'radius
  99. 990    IF R=0 THEN 1210
  100. 1000   T=A(Z,3)                         'turns per inch
  101. 1010   Q=R^2*T^2/U                      'temporary factor
  102. 1020   L=ABS(-10-SQR(100+36*R*Q))/2/Q   'length
  103. 1030   N=L*T                            'no.of turns
  104. 1040   G=A(Z,5)                         'AWG size
  105. 1050  IF Z<=18 THEN I=Z+6 ELSE I=Z-12
  106. 1060  IF Z<=18 THEN J=1 ELSE J=44
  107. 1070  LOCATE I,J
  108. 1080  X=7:Y=0
  109. 1090  IF G=MK THEN X=0:Y=7
  110. 1100  IF U AND (L<=(4*R)) THEN X=14
  111. 1110  COLOR X,Y
  112. 1120  PRINT CAT;                        'catalog no.
  113. 1130  PRINT USING "##.##";R*2;          'diameter
  114. 1140  PRINT USING "#####";T;            'turns per inch
  115. 1150  PRINT USING "######.#";N;         'number of turns
  116. 1160  PRINT USING "####.##";L;          'length of coil
  117. 1170  PRINT USING "#####";G;            'AWG size
  118. 1180  IF Z<18 THEN PRINT ""
  119. 1190  COLOR 7,0
  120. 1200  IF Z<=18 THEN LOCATE CSRLIN-1,40:PRINT "OPEN"
  121. 1210  NEXT Z
  122. 1220  LOCATE 24,40:PRINT "OPEN";
  123. 1230  GOSUB 1660
  124. 1240  IF EX$<>GO$ THEN CLS:CHAIN GO$
  125. 1250  CLS:U=0:MK=0:GOTO 200
  126. 1260  END
  127. 1270  '
  128. 1280  DATA .5,4,2,18
  129. 1290  DATA .5,8,2,18
  130. 1300  DATA .5,16,2,20
  131. 1310  DATA .5,32,2,24
  132. 1320  DATA .625,4,2,16
  133. 1330  DATA .625,8,2,18
  134. 1340  DATA .625,16,2,20
  135. 1350  DATA .625,32,2,24
  136. 1360  DATA .75,4,3,16
  137. 1370  DATA .75,8,3,18
  138. 1380  DATA .75,16,3,20
  139. 1390  DATA .75,32,3,24
  140. 1400  DATA 1,4,3,16
  141. 1410  DATA 1,8,3,18
  142. 1420  DATA 1,16,3,20
  143. 1430  DATA 1,32,3,24
  144. 1440  DATA 1.25,4,4,14
  145. 1450  DATA 1.25,8,4,16
  146. 1460  DATA 1.25,16,4,18
  147. 1470  DATA 1.25,32,4,24
  148. 1480  DATA 1.75,4,4,14
  149. 1490  DATA 1.75,8,4,14
  150. 1500  DATA 1.75,16,4,18
  151. 1510  DATA 1.75,32,4,24
  152. 1520  DATA 2,6,10,12
  153. 1530  DATA 2,8,10,14
  154. 1540  DATA 2,10,10,16
  155. 1550  DATA 0,0,0,0
  156. 1560  DATA 2.5,6,10,12
  157. 1570  DATA 2.5,8,10,14
  158. 1580  DATA 2.5,10,10,16
  159. 1590  DATA 0,0,0,0
  160. 1600  DATA 3,6,10,12
  161. 1610  DATA 3,8,10,14
  162. 1620  DATA 3,10,10,16
  163. 1630  DATA 0,0,0,0
  164. 1640  END
  165. 1650  '
  166. 1660  'HARDCOPY
  167. 1670  GOSUB 1780:LOCATE 25,2:COLOR 14,6
  168. 1680  PRINT " Press 1 to print screen, 2 to print screen & ";
  169. 1690  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  170. 1700  Z$=INKEY$:IF Z$="3"THEN GOSUB 1780:RETURN
  171. 1710  IF Z$="1"OR Z$="2"THEN GOSUB 1780:GOTO 1730
  172. 1720  GOTO 1700
  173. 1730  FOR QX=1 TO 24:FOR QY=1 TO 80
  174. 1740  LPRINT CHR$(SCREEN(QX,QY));
  175. 1750  NEXT QY:NEXT QX
  176. 1760  IF Z$="2"THEN LPRINT CHR$(12)
  177. 1770  GOTO 1670
  178. 1780  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  179.